home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)expo87.d64
/
i boot.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
716b
|
24 lines
1 REM I BOOT.C
5 IFF=0THENPRINT"[147]":POKE53280,0:POKE53281,0
13 IFF=0THENPRINT"GET READY ";
15 IF F=0 THEN F=1:LOAD "SYS 40784.D",8,1
17 IFF=1THENPRINT"FOR A ";
20 IF F=1 THEN F=2:LOAD "CC B.D",8,1
22 IFF=2THENPRINT"SURPRISE!!"
25 IF F=2 THEN F=3:LOAD"IADOREMY64.D",8,1
30 POKE 53265,59:POKE 53272,25:POKE 53270,216:SYS 40784
40 CC$="[144][159][156][158][129][149][150][151][152][153][154][155]"
50 GET A$:IF A$=""THEN50
55 IF A$<>""THENPOKE53265,27:POKE53272,21:POKE53270,200:F=2:PRINT"[147]":END
60 GET C1$:IF C1$="" THEN 60
70 IF C1$="_" THEN 50
80 FOR X=1 TO 16:IF C1$<>MID$(CC$,X,1) THEN NEXT:GOTO 50
82 C1=X-1:IF A$="[134]" OR A$="[135]" THEN 100
84 GET C2$:IF C2$="" THEN 84
86 IF C2$="_" THEN 50
88 FOR X=1 TO 16:IF C2$<>MID$(CC$,X,1) THEN NEXT:GOTO 50
90 C2=X-1:POKE 251,C1:POKE 252,C1*16:POKE 253,C2:POKE 254,C2*16:SYS 6*4096:GOTO50
100 IF A$="[134]" THEN POKE 53280,C1:GOTO 50
110 POKE 53281,C1:GOTO 50
120 :